home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / data / nifhand / ddl.aut < prev    next >
Text File  |  1991-10-18  |  6KB  |  352 lines
  1. IF ($1000=="QUICK" || $1000=="quick") || ($1000=="Q" || $1000=="q")
  2.  IF ($60!="" && $61!="") && ($62!="" && $63!="")
  3.   $2="A"
  4.   GOTO T
  5.  ELSE
  6.   ECHO "\r^G"
  7.   ECHO "DDL.AUT：フルオートモードでは全てを設定しておく必要があります\r"
  8.   GOTO E
  9.  ENDIF
  10. ENDIF
  11.  
  12. IF ($1=="QUICK" || $1=="quick") || ($1=="Q" || $1=="q")
  13.  IF $64=="F" || $64=="f"
  14.   GOTO DDL
  15.  ELSE
  16.   GOTO T
  17.  ENDIF
  18. ENDIF
  19.  
  20. LABEL H1
  21. ECHO "\rこの DDL.AUT は初期設定が全くなされていなくても実行可能ですが"
  22. ECHO "\r設定内容は以下のようになっています^G"
  23. IF $64=="F" || $64=="f"
  24. ECHO " [ 複数指定 ON ]"
  25. ENDIF
  26. ECHO "\r\r  1.フォーラム名  ：$60"
  27. ECHO "\r  2.ライブラリ番号：$61"
  28. ECHO "\r  3.データ番号    ：$62"
  29. ECHO "\r  4.ダウンロード名：$63\r"
  30. ECHO "\r以上でよろしいですか？ (Y/N) (E:中止) (ﾘﾀｰﾝｷｰ不要)＞\r"
  31.  
  32. LOOKKEY 60
  33.  CASE "Y"
  34.   IF $64=="F" || $64=="f"
  35.    GOTO DDL
  36.   ELSE
  37.    GOTO T
  38.   ENDIF
  39.  CASE "y"
  40.   IF $64=="F" || $64=="f"
  41.    GOTO DDL
  42.   ELSE
  43.    GOTO T
  44.   ENDIF
  45.  CASE "N"
  46.  CASE "n"
  47.  CASE "E"
  48.   GOTO E
  49.  CASE "e"
  50.   GOTO E
  51.  CASE/TIMEOUT
  52.   GOTO E
  53. FREE
  54.  
  55. ECHO "\r^G訂正したいものを番号で選んでください (1～4) (ﾘﾀｰﾝｷｰ不要)\r"
  56. LOOKKEY 60
  57.  CASE "1"
  58.   ECHO "\r正しいフォーラム名を入力して下さい (+ﾘﾀｰﾝ)\r\r\r"
  59.   INPUT $60
  60.   GOTO H1
  61.  CASE "2"
  62.   ECHO "\r正しいライブラリ番号を入力して下さい (+ﾘﾀｰﾝ)\r\r\r"
  63.   INPUT $61
  64.   GOTO H1
  65.  CASE "3"
  66.   ECHO "\r正しいデータ番号を入力して下さい (+ﾘﾀｰﾝ)\r\r\r"
  67.   INPUT $62
  68.   GOTO H1
  69.  CASE "4"
  70.   ECHO "\r正しいダウンロード名を入力して下さい (+ﾘﾀｰﾝ)\r\r\r"
  71.   INPUT $63
  72.   GOTO H1
  73.  CASE/TIMEOUT
  74.   GOTO E
  75. FREE
  76.  
  77. LABEL T
  78. IF ($60!="" && $61!="") && $62!=""
  79.  DO F
  80.  IF $200=="A"
  81.   GOTO E
  82.  ENDIF
  83.  SEND "LIB $61\r",1
  84.  WAIT "^JLIB>"
  85.  SEND "SET PAGE OFF\r",1
  86.  WAIT "^JLIB>"
  87.  CMD D "$900:\\$60\\LIB$943.LOG"
  88.  SEND "DOW $62 PROT:BPL\r",1
  89.  SCAN "^Jデータ名：" $10 "." $4 " ",5
  90.  WAIT "^J項目 (1:OK  2:NG"
  91.  WAIT "^J："
  92.  CMD D
  93.  IF $2!="A"
  94.   ECHO "^Gダウンロードしますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞"
  95.   LOOKKEY 60
  96.    CASE "Y"
  97.    CASE "y"
  98.    CASE "N"
  99.     SEND "E\r",1
  100.     WAIT "^JLIB>"
  101.     GOTO L1
  102.    CASE "n"
  103.     SEND "E\r",1
  104.     WAIT "^JLIB>"
  105.     GOTO L1
  106.    CASE/TIMEOUT
  107.     SEND "E\r",1
  108.     WAIT "^JLIB>"
  109.     GOTO E
  110.   FREE
  111.  ENDIF
  112.  SEND "1\r"
  113.  WAIT "^J："
  114.  IF $63==""
  115.   ECHO "^Gマクロが取得したダウンロード名：< $10.$4 >\r"
  116.   ECHO "  これでいいですか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞\r\r\r"
  117.   LOOKKEY 60
  118.    CASE "Y"
  119.     $63="$10.$4"
  120.    CASE "y"
  121.     $63="$10.$4"
  122.    CASE "N"
  123.     INPUT $63
  124.    CASE "n"
  125.     INPUT $63
  126.    CASE/TIMEOUT
  127.     $63="$10.$4"
  128.   FREE
  129.  ENDIF
  130.  SEND "$63\r",1
  131.  $63=""
  132.  WAIT "－ダウンロード開始－"
  133.  WAIT ""
  134.  CMD ! "B.BAT"
  135.  WAIT "^JLIB>"
  136.  GOTO E
  137. ENDIF
  138.  
  139. LABEL DDL
  140. IF $60==""
  141.  ECHO "\r^Gフォーラム名を指定して下さい (例：FGALAP) (+ﾘﾀｰﾝ)＞\r\r\r"
  142.  INPUT $60
  143. ENDIF
  144. DO F
  145. IF $200=="A"
  146.  GOTO L1
  147. ENDIF
  148.  
  149. LABEL DD1
  150. SEND "LIB\r",1
  151. LOOK
  152.  CASE "本フォーラムでは"
  153.   LOOK
  154.    CASE "^J＞"
  155.    CASE ">"
  156.   FREE
  157.   END
  158.  CASE "^J＞"
  159. FREE
  160.  
  161. LABEL DD2
  162. IF $61==""
  163.  ECHO "^GＤＬの番号を選んで下さい (+ﾘﾀｰﾝ) ＞\r\r\r"
  164.  INPUT $61
  165. ENDIF
  166. SEND "$61\r",1
  167.  
  168. LOOK
  169.  CASE "^JLIB>"
  170.   SEND "SET PAGE ON\r",1
  171.   WAIT "^JLIB>"
  172.   CMD D "$900:\\$60\\LIB$61.DAT"
  173.   SEND "1\r",1
  174.  CASE "コマンドを入力して"
  175.   WAIT "^J＞"
  176.   $61=""
  177.   GOTO DD2
  178. FREE
  179.  
  180. LABEL DD3
  181. LOOK
  182. CASE "^Jmore>"
  183.  IF $62!=""
  184.   CMD D
  185.   SEND "SET PAGE OFF\r",1
  186.   WAIT "^Jmore>"
  187.   SEND "$62\r",1
  188.   GOTO J1
  189.  ENDIF
  190.  ECHO "^Gもっと探してみますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞"
  191.  LOOKKEY 60
  192.   CASE "Y"
  193.    SEND "\r"
  194.    GOTO DD3
  195.   CASE "y"
  196.    SEND "\r"
  197.    GOTO DD3
  198.   CASE "N"
  199.   CASE "n"
  200.   CASE/TIMEOUT
  201.  FREE
  202. CASE "^J＞"
  203.  IF $62!=""
  204.    CMD D
  205.    SEND "SET PAGE OFF\r",1
  206.    WAIT "^J＞"
  207.    SEND "$62\r",1
  208.    GOTO J1
  209.  ENDIF
  210. FREE
  211.  
  212. ECHO "\r^G参照したいものがありますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞"
  213. CMD D
  214. LOOKKEY 60
  215.  CASE "Y"
  216.  CASE "y"
  217.  CASE "N"
  218.   GOTO L1
  219.  CASE "n"
  220.   GOTO L1
  221.  CASE/TIMEOUT
  222.   GOTO L1
  223. FREE
  224.  
  225. SEND "SET PAGE OFF\r",1
  226. LOOK
  227.  CASE ">"
  228.  CASE "^J＞"
  229. FREE
  230.  
  231. ECHO "^Gﾀﾞｳﾝﾛｰﾄﾞしたいものの番号を入力して下さい\r"
  232. ECHO "    複数選択する時は 1,3,5  1-3,6 のように (+ﾘﾀｰﾝ) ＞"
  233.  
  234. LABEL J1
  235. CMD D "$900:\\$60\\LIB$943.LOG"
  236.  
  237. LABEL DD4
  238. LOOK
  239. CASE "^Jデータ"
  240.    SCAN "：" $10 "." $4 " ",4
  241.    WAIT "^J処理 (1:ダウンロード"
  242.    WAIT "^J＞"
  243.    IF $63!=""
  244.     SEND "1\r",1
  245.    ELSE
  246.     ECHO "^Gそれでは決めて下さい (+ﾘﾀｰﾝ) ＞"
  247.     LOOK
  248.      CASE "1\r"
  249.       GOTO DD5
  250.      CASE "2\r"
  251.       WAIT "^J改行キーを押して下さい"
  252.       WAIT "^J＞"
  253.       SEND "\r",1
  254.      CASE "S\r"
  255.      CASE "s\r"
  256.      CASE "E\r"
  257.      CASE "e\r"
  258.     FREE
  259.      GOTO DD4
  260.    ENDIF
  261. CASE "コマンドを入力して"
  262.   WAIT "^J＞"
  263.   ECHO " 正しく入力すれば立ち直ります ＞"
  264.   GOTO DD4
  265. CASE "^JLIB>"
  266.   CMD D            ;ここでループを抜ける
  267.   GOTO L1
  268. FREE
  269.  
  270. LABEL DD5
  271. LOOK
  272.  CASE "^Jプロトコル (1:XMODEM  2:無手順"
  273.   WAIT "^J："
  274.   SEND "3\r",1
  275.  CASE "^Jプロトコル (1:XMODEM  2:BPLUS"
  276.   WAIT "^J："
  277.   SEND "2\r",1
  278. FREE
  279.  
  280. WAIT "^Jファイル名 (改行のみ"
  281. WAIT "^J："
  282.  
  283. IF $63!=""
  284.   SEND "$63\r",1
  285. ELSE
  286.   ECHO "^Gマクロが取得したダウンロード名：<< $10.$4 >>"
  287.   ECHO "\r  これででいいですか？ (Y/N) (E:中止) (ﾘﾀｰﾝｷｰ不要)＞"
  288.   LOOKKEY 60
  289.    CASE "Y"
  290.     SEND "$10.$4\r",1
  291.    CASE "y"
  292.     SEND "$10.$4\r",1
  293.    CASE "N"
  294.     ECHO "\r^G ファイル名を入力して下さい (+ﾘﾀｰﾝ)："
  295.    CASE "n"
  296.     ECHO "\r^G ファイル名を入力して下さい (+ﾘﾀｰﾝ)："
  297.    CASE "E"
  298.     GOTO  DD6
  299.    CASE "e"
  300.     GOTO DD6
  301.    CASE/TIMEOUT
  302.     GOTO DD6
  303.   FREE
  304. ENDIF
  305.  
  306. WAIT "－ダウンロード開始－"
  307. WAIT ""
  308. CMD ! "B.BAT"
  309. GOTO DD4
  310.  
  311. LABEL DD6
  312. SEND "\r",1
  313. CMD D
  314. ECHO "\r^G世話焼かすんじゃねえよ！ ったくもう\r"
  315. WAIT "^Jプロトコル (1:XMODEM"
  316. WAIT "^J："
  317. SEND "E\r",1
  318. WAIT "^J処理 (1:ダウンロード"
  319. WAIT "^J＞"
  320.  
  321. LABEL L1
  322. ECHO "\r^G続行しますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要)＞"
  323. $61=$62=$63=""
  324. LOOKKEY 60
  325.  CASE "Y"
  326.  CASE "y"
  327.  CASE "N"
  328.   GOTO E
  329.  CASE "n"
  330.   GOTO E
  331.  CASE/TIMEOUT
  332.   GOTO E
  333. FREE
  334.  
  335. ECHO "\r  ^Gこのフォーラムのままでいいですか？ (Y/N) (ﾘﾀｰﾝｷｰ不要)＞"
  336. LOOKKEY 60
  337.  CASE "Y"
  338.  CASE "y"
  339.  CASE "N"
  340.   $60=""
  341.  CASE "n"
  342.   $60=""
  343.  CASE/TIMEOUT
  344.   GOTO E
  345. FREE
  346. GOTO H1
  347.  
  348. LABEL E
  349. $1=$2=$10=$4=$60=$61=$62=$63=$64=$200=""
  350. END
  351.  
  352.